1、引用：uses TJSONObject;
1 json := TJSONObject.create;2 json.addPair('姓名','张三');3 json.addPair('年龄','30')4 showmessage(json.tostring);//字符串格式5 showmessage(json.tojson);// JSON格式例子：
JSON语句：{"code":100,"state":"true","data":["hero","npc","pet"]}
2、引用单元：
System.JSON3、类型说明：
//申明变量Root:TJSONObject;//赋值Root:= TJSONObject.ParseJSONValue(Trim(JsonStr)) as TJSONObject;4、获取JSON对象的数量
Root.Count5、遍历对象和数值
for i:=0 to Root.count-1 dobeginmemo1.lines.add(Root.Get(i).JsonString.toString + ' = ' + Root.Get(i).JsonValue.ToString);end;结果显示：
"code" = 100"state" = "true""data" = {"id":10,"name":"test"}6、获取指定对象的数值：
Root.GetValue('data').ToString7、获取数组对象：
申明json数组变量Arr:TJSONArray;Arr:=TJSONArray(Root.GetValue('data'));遍历json数组for i:=0 to Arr.Size - 1 dobegin memo1.lines.add(Arr.items[i].value);end;Json解析无法判断数据内是否存在指定对象名，所以在吃不准是否存在指定对象的时候，还是使用get遍历的方式读取数据比较稳妥。